home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 122 / 122side3.d64 / b.ml relocator (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  5KB  |  128 lines
  1. 12 dv=peek(186):ifdv<8thendv=8
  2. 20 poke53280,.:poke53281,.:print"[147]":gosub60000
  3. 30 dimn(255),l(255)
  4. 70 fori=.to255:n(i)=.:l(i)=.:next
  5. 80 reada,b:ifa=-1then92
  6. 90 n(a)=1:l(a)=b:goto80
  7. 92 a=0:i=0:di=36864
  8. 94 reada:ifa<>-1thenpokedi+i,a:i=i+1:goto94
  9. 96 poke36881,dv
  10. 98 print"[147][129]          [204] [207] [193] [196] [211] [212] [193] [210] ' [211]"
  11. 100 print"[158] [176][174][176][174][174]     [176][192][174][176][192][174][174]  [176][192][174][176][192][174][176][192][174][176][178][174][176][192][174][176][192][174]
  12. 110 [153]" (NULL)/exp(NULL)(NULL)     -=exp-< (NULL)  (NULL) (NULL)(NULL)  -tan< (NULL) (NULL) (NULL)-=exp
  13. 120 print" [189]  [173][173][192][189]   [189][173][189][173][192][189][173][192][189][173][192][189][173][192][189][189] [173] [177] [173][192][189][189][173][189]
  14. 126 [153]"cont  valnter $cont for directoryononon"
  15. 128 [151]214,5:[153]
  16. 130 [153]"cont(NULL)riginal filename: ";:ln[178]15:[141]4100:[139]in$[178]"_"[167]4200
  17. 132 [139]in$[179][177]"$"[167]140
  18. 134 [153]"loadopen":[158]di
  19. 136 [153]"sys(NULL)ress a key"
  20. 138 [161]a$:[139]a$[178]""[167]138
  21. 139 [137]98
  22. 140 fl$[178]in$:[153]
  23. 150 [151]781,8:[158]59903
  24. 152 [153]"cont(NULL)ew filename: ";:[141]4100:[139]in$[178]"_"[167]4200
  25. 160 fs$[178]in$:[153]
  26. 170 [153][166]8)"openright$nsert disk, press (NULL)val(NULL)(NULL)(NULL)(NULL)
  27. 180 geta$:ifa$<>chr$(13)then180
  28. 200 close1:open1,dv,15,"i":fori=.to99:next:close8:open8,dv,2,fl$
  29. 210 gosub4150:iferthen500
  30. 220 get#8,a$,b$:a$=a$+chr$(.):b$=b$+chr$(0):sa=asc(a$)+256*asc(b$)
  31. 230 print"[154][207]riginal starts at[155]"sa:print"[154][197]xamining...":i=.
  32. 240 get#8,a$:ifst=.theni=i+1:goto240
  33. 250 close8:close1:ea=sa+i:fl=i:print"[145]    [207]riginal ends at[155]"ea"
  34. 260 [153]"cont(NULL)ew start address: ";:ln[178]4:[141]4100:[139]in$[178]"_"[167]4200
  35. 270 la[178][197](in$):[139]la[179]256[176]la[177]52992[167][153]"onon":[137]260
  36. 280 hb[178][181](la[173]256):lb[178]la[171](256[172]hb):
  37. 290 [139]la[178]sa[167]4200
  38. 300 up[178].:di[178]sa[171]la:[139]la[177]sa[167]up[178]1:di[178]la[171]sa
  39. 310 [159]1,dv,15,"i":[129]i[178].[164]99:[130]
  40. 320 [159]8,dv,2,fl$:[159]9,dv,1,fs$:[161]#8,a$,b$:[152]9,[199](lb);[199](hb);
  41. 330 s[178].:[141]4150:[139]er[167]500
  42. 400 [143] main routine
  43. 405 [151]53280,[187](1)[172]16:[151]53280,0
  44. 407 [141]4150
  45. 408 [139]er[179][177]0[167]500
  46. 409 [139]s[179][177]0[167][153]"open  str$one!":[137]4200
  47. 410 [161]#8,a$:a$[178]a$[170][199](.):a[178][198](a$):s[178]st
  48. 420 [139]n(a)[178].[167][152]9,[199](a);:[137]405
  49. 430 [139]l(a)[178]1[167][152]9,[199](a);:[141]4160:[137]405
  50. 440 [152]9,[199](a);:[161]#8,a$,b$:a$[178]a$[170][199](.):b$[178]b$[170][199](.):a[178][198](a$):b[178][198](b$)
  51. 450 te[178]a[170](256[172]b):[139]te[177]sa[175]te[179]ea[170]1[167]470:[143] inside range
  52. 460 [152]9,[199](a);[199](b);:[137]405
  53. 470 nv[178]te[171]di:[139]up[178]1[167]nv[178]te[170]di
  54. 480 h1[178][181](nv[173]256):l1[178]nv[171](256[172]h1):[152]9,[199](l1);[199](h1);:[137]405
  55. 500 [160]1:[160]8:[160]9
  56. 502 [153]"def  "e$
  57. 510 [153]"sys  (NULL)ress a key"
  58. 520 [161]a$:[139]a$[178]""[167]520
  59. 530 [137]98
  60. 4000 [131]1,1,5,1,6,1,9,1,13,2,14,2,16,1,17,1,21,1,22,1,25,2,29,2,30,2,32,2,33,1
  61. 4010 [131]36,1,37,1,38,1,41,1,44,2,45,2,46,2,48,1,49,1,53,1,54,1,57,2,61,2,62,2
  62. 4020 [131]65,1,69,1,70,1,73,1,76,2,78,2,80,1,81,1,85,1,86,1,89,2,93,2,94,2
  63. 4030 [131]97,1,101,1,102,1,105,1,108,2,109,2,110,2,112,1,113,1,117,1,118,1
  64. 4040 [131]121,2,125,2,126,2,129,1,132,1,133,1,134,1,140,2,141,2,142,2,144,1
  65. 4050 [131]145,1,148,1,149,1,150,1,153,2,157,2,160,1,161,1,162,1,164,1,165,1
  66. 4060 [131]166,1,169,1,172,2,173,2,174,2,176,1,177,1,180,1,181,1,182,1,185,2
  67. 4070 [131]188,2,189,2,190,2,192,1,193,1,196,1,197,1,198,1,201,1,204,2,205,2
  68. 4080 [131]206,2,208,1,209,1,213,1,214,1,217,2,221,2,222,2,224,1,225,1,228,1
  69. 4090 [131]229,1,230,1,233,1,236,2,238,2,240,1,241,1,245,1,246,1,249,2
  70. 4095 [131]253,2,254,2,-1,-1
  71. 4100 in$[178]"":[151]198,.:[153]"to";
  72. 4105 [146]198,15:[161]z$:z[178][198](z$):[139]z[177]95[167]4105
  73. 4110 zl[178][195](in$):[139]zl[177]ln[167]4120
  74. 4115 [139]z[177]31[167]in$[178]in$[170]z$:[153]"cmd"z$"to";:[137]4105
  75. 4120 [139]z[178]13[167][153]"cmd ":[137]4135
  76. 4125 [139]z[178]20[175]zl[167]in$[178][200](in$,zl[171]1):[153]"cmdcmdto cmd";
  77. 4130 [137]4105
  78. 4135 [139]in$[178]""[167]in$[178]"_"
  79. 4140 [142]
  80. 4150 [132]1,er,e$,e1,e2:[142]
  81. 4160 [161]#8,a$:a$[178]a$[170][199](.):a[178][198](a$):[152]9,[199](a);:[142]
  82. 4200 [160]8:[160]1::[153]"cont(NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)?  (ycont/ncont)"
  83. 4210 [161]c$:[139]c$[178]""[167]4210
  84. 4220 [139]c$[178]"y"[167]40000
  85. 4240 [137]98
  86. 10000 [159]15,8,15,"s0:b.ml relocator":[160]15:[148]"b.ml relocator",8:[128]
  87. 36864 [131] 169,036,133,251,169,251,133
  88. 36871 [131] 187,169,000,133,188,169,001
  89. 36878 [131] 133,183,169,008,133,186,169
  90. 36885 [131] 096,133,185,032,213,243,165
  91. 36892 [131] 186,032,180,255,165,185,032
  92. 36899 [131] 150,255,169,000,133,144,160
  93. 36906 [131] 003,132,251,032,165,255,133
  94. 36913 [131] 252,164,144,208,047,032,165
  95. 36920 [131] 255,164,144,208,040,164,251
  96. 36927 [131] 136,208,233,166,252,032,205
  97. 36934 [131] 189,169,032,032,105,144,032
  98. 36941 [131] 165,255,166,144,208,018,170
  99. 36948 [131] 240,006,032,210,255,184,080
  100. 36955 [131] 240,169,013,032,210,255,160
  101. 36962 [131] 002,208,198,032,066,246,096
  102. 36969 [131] 072,173,141,002,201,001,240
  103. 36976 [131] 249,104,076,210,255,000,000
  104. 36983 [131] 000,162,007,160,000,024,032
  105. 36990 [131] 240,255,162,000,160,025,177
  106. 36997 [131] 243,024,105,001,041,015,141
  107. 37004 [131] 235,003,173,039,208,041,015
  108. 37011 [131] 205,235,003,240,238,173,235
  109. 37018 [131] 003,160,025,145,243,200,192
  110. 37025 [131] 036,208,249,169,013,032,210
  111. 37032 [131] 255,232,224,009,208,212,096
  112. 37033 [131] -1
  113. 40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40020
  114. 40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
  115. 40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
  116. 40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  117. 40040 [153]"run":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]
  118. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  119. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]8:[153]z$:[130]
  120. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  121. 60030 z$(0)[178]"(NULL) (NULL)    (NULL) val (NULL) (NULL) len atn (NULL) (NULL) (NULL)":z$(1)[178]"by (NULL)teve valmsley
  122. 60040 z$(2)="([195]) 1994 by [211]oftdisk [208]ublishing"+chr$(13)
  123. 60050 z$(3)="[212]his program is the copyrighted work
  124. 60060 z$(4)[178]"of (NULL)oftdisk.  right$t is not shareware"
  125. 60070 z$(5)[178]"or in the public domain."
  126. 60090 [151]214,12:[153]
  127. 60100 [129]i[178]0[164]5:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  128.